object PickChild: TPickChild Left = 393 Top = 172 BorderStyle = bsDialog Caption = 'Pick Child' ClientHeight = 214 ClientWidth = 327 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Position = poScreenCenter OnActivate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 305 Height = 153 Shape = bsFrame IsControl = True end object OKBtn: TBitBtn Left = 112 Top = 175 Width = 93 Height = 31 Caption = 'Ok' Default = True Font.Color = clGreen Font.Height = -19 Font.Name = 'Arial' Font.Style = [fsBold] ModalResult = 1 ParentFont = False TabOrder = 0 OnClick = OKBtnClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000D80E00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555205555555555555222055555555555522205555 5555555222220555555555222222055555555722052220555555720555522055 5555555555522205555555555555220555555555555552205555555555555572 0555555555555557205555555555555552205555555555555555} Margin = 8 Spacing = -1 end object CancelBtn: TBitBtn Left = 216 Top = 175 Width = 93 Height = 31 Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = CancelBtnClick Kind = bkCancel Margin = 2 Spacing = -1 end object HelpBtn: TBitBtn Left = 12 Top = 175 Width = 25 Height = 31 Caption = ' ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = HelpBtnClick Kind = bkHelp Margin = 2 Spacing = -1 end object Name: TComboBox Left = 24 Top = 32 Width = 273 Height = 32 Font.Color = clBlack Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ItemHeight = 24 ParentFont = False TabOrder = 3 end object AddButton: TBitBtn Left = 16 Top = 96 Width = 169 Height = 41 Caption = 'Add New Child' Font.Color = clNavy Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = AddButtonClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000D80E00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333444443333333333E444443333333333E444443333333333E444443 333333444444444444433E444444444444433E444444444444433E4444444444 44433E444444444444433EEEEE44444EEE3333333E444443333333333E444443 333333333E444443333333333EEEEE3333333333333333333333} end object DeleteButton: TBitBtn Left = 200 Top = 96 Width = 105 Height = 41 Caption = 'Delete!' Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [fsUnderline] ParentFont = False TabOrder = 5 OnClick = DeleteButtonClick Glyph.Data = { 26020000424D260200000000000076000000280000001C0000001B0000000100 040000000000B0010000CE0E0000D80E00000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666 66666666676666660000666666666666666666667B101B160000666666666666 66666667B101B1B600006666666666666666667B101B1B060000666666666666 666667B101B1B0B6000066666666666666667B101B1B0B060000666666666666 66670101B1B0B00600006666666666666672001B1B0B00060000666666666666 67022201B0B0000600006666666666667B0022000B0000660000666666666667 B1B10220B0000666000066666666667B1B1B0020000066660000666666666701 B1B1B0200006666600006666666672001B1B1000006666660000666666670222 01B1B000066666660000666666780022001B00006666666600006666678D8D02 20B0000666666666000066667008D800200000666666666600006667FDF08D80 20000666666666660000667FDFD0D8D00000666666666666000067FDFDF00D80 0006666666666666000067DFDFDF08000066666666666666000060FDFDFD0000 06666666666666660000600FDFDF000066666666666666660000600DFDF00006 6666666666666666000060000000006666666666666666660000660000000666 66666666666666660000} end object ChildTable: TTable DatabaseName = 'PCBaby4' TableName = 'CHILD.DB' Left = 72 Top = 176 object ChildTableFirstName: TStringField FieldName = 'FirstName' Size = 50 end end object ChildData: TDataSource DataSet = ChildTable Left = 48 Top = 176 end end